home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / adding quiz (.txt) next >
Commodore BASIC  |  2007-02-04  |  7KB  |  240 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 SYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 42 IFUL=0THENUL=80
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 62 IFLEN(UR$)=>ULTHEN50
  16. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  17. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  18. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  19. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  20. 85 REM +++ CHECK FOR HELP REQUEST +++
  21. 90 IF UR$=UX$THEN GOTO 195: REM EXIT T0 HELP ROUTINE
  22. 95 IFLEN(US$)=0THEN110
  23. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  24. 105 RETURN
  25. 110 IFUA=46THENRETURN
  26. 115 IFUA=32ANDUR<>0THENRETURN
  27. 120 IFUA>47ANDUA<58THENRETURN
  28. 125 IFUA>64ANDUA<91THENRETURN
  29. 127 US$=US$+UX$
  30. 130 IFUA<193ORUA>218THENUI$="":RETURN
  31. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  32. 140 RETURN
  33. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  34. 150 UZ=1:UV%=PEEK(UT):GOTO300
  35. 152 IFASC(UI$)=46THENRETURN
  36. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  37. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  38. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  39. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  40. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  41. 180 IFASC(UI$)<193ORASC(UI$)>218THENUI$="":RETURN
  42. 185 IFPEEK(59468)=12THENUI$=CHR$(ASC(UI$)-128):RETURN
  43. 187 RETURN
  44. 190 UI$="":RETURN
  45. 195 UF=1:REM +++ HELP ROUTINE EXIT +++
  46. 197 GOSUB250
  47. 200 GOSUB245:UO=PEEK(59468)
  48. 205 FORUQ=UBTO(U2%*256+U1%+U3%-2)
  49. 210 UQ%(UQ-UB)=PEEK(UQ):NEXT:PRINT"[147]"
  50. 215 UZ=1
  51. 216 GOTO300
  52. 217 UZ=0:US$=UJ$:UL=UJ
  53. 218 POKE59468,UO
  54. 220 PRINT"[147]";:FORUQ=UBTO(U2%*256+U1%+U3%-3)
  55. 225 POKEUQ,UQ%(UQ-UB):NEXT:PRINT"[157]";
  56. 230 POKE196,U1%
  57. 232 POKE197,U2%
  58. 233 POKE216,(U4%)
  59. 234 POKE198,(U3%)-1
  60. 235 GOTO35
  61. 240 UD%=((U2%*256+U1%+U3%)-UB)/40:PRINTLEFT$(UD$,UD%+1):RETURN
  62. 245 PRINTLEFT$(UD$,24);"                        HELP COMING [146]  ":RETURN
  63. 250 U1%=PEEK(196):U2%=PEEK(197):U3%=PEEK(198):U4%=PEEK(216)
  64. 251 UJ$=US$:UJ=UL
  65. 255 RETURN
  66. 300 PRINT"[147]":POKE53272,21:POKE53280,0:POKE53281,0
  67. 305 PRINT"                M E N U"
  68. 310 PRINT"    --------------------------------"
  69. 315 PRINT"       1.   BEGIN  ADDING QUIZ "
  70. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  71. 325 PRINT"       3.   TEACHER INFORMATION"
  72. 330 PRINT"       4.   RETURN TO DISK MENU
  73. 335 [153]"    --------------------------------":[141]790:[141]760
  74. 340 [153]"       PRESS A NUMBER KEY (1-4) ";
  75. 345 UL[178]1:US$[178]"1234"
  76. 347 [141]35:US$[178]""
  77. 350 [145][197](UR$)[141]815,400,500,370
  78. 352 [143]: US$=""
  79. 353 [143]:  PRINTLEFT$(UD$,23);"            ONE MOMENT PLEASE          "
  80. 355 [137]300
  81. 370 [153]"LOAD RETURNING TO THE DISK MENU
  82. 375 LOAD"MENU",8
  83. 380 RUN
  84. 385 END
  85. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
  86. 399 :
  87. 400 PRINT"[147]":POKE53272,23:POKE53280,0:POKE53281,0
  88. 405 PRINT"[147]              [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  89. 412 [153]"OPEN (null)HIS PROGRAM TESTS YOUR ABILITIES TO"
  90. 414 [153]" DO ADDITION.  (null)HE COMPUTER WILL SET UP"
  91. 416 [153]" AN ADDITION PROBLEM OF FOUR NUMBERS TO"
  92. 418 [153]" BE SOLVED BY YOU.  LEFT$OW YOU PLACE YOUR"
  93. 420 [153]" ANSWER UNDER THE QUESTION WILL NOT"
  94. 422 [153]" AFFECT THE OUTCOME OF THE QUESTION."
  95. 424 [153]" ASCOR THIS QUIZ IT WOULD BE ADVISABLE TO"
  96. 426 [153]" HAVE SOME PAPER AND A PENCIL TO FOLLOW"
  97. 428 [153]" ALONG WITH THE PROGRAM.":[141]820
  98. 440 [153]"LOADOPEN (null)OU HAVE FIVE CHANCES AT EACH QUESTION
  99. 445 PRINT" AND THE COMPUTER WILL TELL YOU WHICH"
  100. 450 PRINT" DIGITS YOU HAVE WRONG."
  101. 460 PRINT" [212]HERE WILL BE 10 ADDITION QUESTIONS.
  102. 490 [141]820
  103. 495 [142]
  104. 499 :
  105. 500 [151]53272,23:[151]53280,2:[151]53280,2
  106. 505 [153]"LOAD             (null)VALATNLENLEFT$VAL(null) RIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null) WAIT
  107. 512 PRINT"      [208]ROGRAM [206]AME: [193]DDING [209]UIZ"
  108. 513 PRINT"      [215]RITTEN BY  : [202]. [200]ODGE"
  109. 514 PRINT"      [210]EVISED BY  : [196]AVE [196]AKERS"
  110. 515 PRINT"      [210]EVISED BY  : [194]ILL [195]UMBERLAND
  111. 518 [153]"                  FOR     
  112. 519 PRINT"         [195]OMMODORE 64 [195]OMPUTERS
  113. 590 [141]835
  114. 595 [142]
  115. 599 :
  116. 700 [143] <YES>
  117. 705 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  118. 710 [151]54296,15:[151]54277,42:[151]54278,250
  119. 715 [151]54276,23:[151]54273,23:[151]54272,191
  120. 720 [129]TS[178]1[164]200:[130]:[151]54276,32:[129]TS[178]1[164]300:[130]
  121. 725 [151]54296,0:[142]
  122. 730 [143] <NO>
  123. 735 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  124. 740 [151]54296,15:[151]54277,18:[151]54278,242
  125. 745 [151]54276,33:[151]54273,4:[151]54272,48
  126. 750 [129]TS[178]1[164]300:[130]:[151]54276,32:[129]TS[178]1[164]400:[130]
  127. 755 [151]54296,0:[142]
  128. 760 [143] <BLIP>
  129. 765 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  130. 770 [151]54296,6:[151]54277,42:[151]54278,250
  131. 775 [151]54276,23:[151]54273,23:[151]54272,191
  132. 780 [129]TS[178]1[164]30:[130]:[151]54276,32:[129]TS[178]1[164]50:[130]
  133. 785 [151]54296,0:[142]
  134. 790 [129]TB[178]1[164]500:[130]:[142]
  135. 791 [129]TB[178]1[164]1000:[130]:[142]
  136. 792 [129]TB[178]1[164]2000:[130]:[142]
  137. 793 [129]TB[178]1[164]3000:[130]:[142]
  138. 799 :
  139. 800 [153]"LOAD";:[151]53272,21:[151]53280,1:[151]53281,1
  140. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  141. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  142. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  143. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  144. 805 [153]"STEP  WAIT
  145. 806 PRINT" [146]   [146][169]
  146. 807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
  147. 808 PRINT"[223]  [146]
  148. 809 [153]" ONTARIO EDUCATIONAL SOFTWARE  1983
  149. 810 PRINT"            ADDING QUIZ [146]":GOSUB760:GOSUB790
  150. 812 PRINTLEFT$(UD$,24);"[154]PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  151. 813 GETUI$:IFUI$<>CHR$(32)THENUI=UI+1:IFUI<250THEN813
  152. 814 GOTO300
  153. 815 PRINT"[147]AND AWAY WE GO........."
  154. 817 GOTO 1000
  155. 820 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  156. 822 GETUI$:IFUI$<>CHR$(32)THEN822
  157. 824 RETURN
  158. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
  159. 840 GETUI$:IFUI$<>CHR$(32)THEN840
  160. 845 RETURN
  161. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  162. 855 PRINT" --------------------------------------"
  163. 860 PRINT" >>> "NA$
  164. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,6);"ANSWER - THEN PRESS <RETURN> "
  165. 870 UH=0:PRINT"":RETURN
  166. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  167. 899 :
  168. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  169. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  170. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  171. 905 UD$="":UP$="                                      "
  172. 909 RETURN
  173. 910 GOSUB900:PRINT"[147] "
  174. 970 GOSUB800:GOTO300
  175. 999 :
  176. 1000 PRINT"[147]"UC$;:RESTORE:POKE53280,6:POKE53281,6:POKE53272,21
  177. 1010 PRINT"[147] WHAT IS YOUR NAME?":GOSUB760
  178. 1020 INPUT" >>> ";NA$
  179. 1110 RESTORE:FOR C=1 TO6:READA$(C):NEXT C
  180. 1120 FOR Z=1 TO6:READB$(Z):NEXT Z
  181. 1130 VV=0
  182. 1150 UT$=" ADDING DRILL":UG$="":UP=0
  183. 1160 GOSUB850
  184. 1170 PRINT"  LET'S PRACTISE OUR ADDING, SHALL WE?":GOSUB760:GOSUB760
  185. 1210 Z=0:FOR Q=1 TO 10:GOSUB835
  186. 1220 Y=0:VV=0:UG$="ADDITION PROBLEM":UP=Q-1
  187. 1230 REMPRINT"[147]ADDITION PROBLEM #"Q
  188. 1235 GOSUB850:PRINT""
  189. 1240 FORYQR=1 TO 4
  190. 1250 X=INT(9999*RND(1)+1)
  191. 1260 Y=Y+X
  192. 1270 IFX<10THENPRINTTAB(19);X:GOTO1340
  193. 1290 IFX<100THENPRINTTAB(18);X:GOTO1340
  194. 1310 IFX<1000THENPRINTTAB(17)X:GOTO1340
  195. 1330 PRINT"                ";X
  196. 1340 NEXTYQR
  197. 1350 PRINT"                +[210][210][210][210]":GOSUB760
  198. 1360 PRINT"      ANSWER IS       [157][157][157][157][157][157]";:GOSUB865:PRINT""TAB(16)
  199. 1370 US$="0123456789":UL=5:GOSUB35:CD=VAL(UR$)
  200. 1380 PRINT
  201. 1390 PRINT
  202. 1400 IF CD=Y GOTO 1600
  203. 1410 V=INT(6*RND(1)+1)
  204. 1420 PRINT"[145] "B$(V):VV=VV+1
  205. 1430 IFVV=5THENPRINT"[150] MUST BE TOO TOUGH FOR YOU."
  206. 1435 IFVV=5THENPRINT" ANSWER WAS"Y:VV=O:GOTO 1620
  207. 1440 Q1=INT(Y/10000):Q2=(INT(Y/1000))-(10*Q1)
  208. 1450 Q3=(INT(Y/100))-((100*Q1)+(10*Q2))
  209. 1460 Q4=(INT(Y/10))-((1000*Q1)+(100*Q2)+(10*Q3))
  210. 1470 Q5=Y-((10000*Q1)+(1000*Q2)+(100*Q3)+(10*Q4))
  211. 1480 Z1=INT(CD/10000):Z2=(INT(CD/1000))-(10*Z1)
  212. 1490 Z3=(INT(CD/100))-((100*Z1)+(10*Z2))
  213. 1500 Z4=(INT(CD/10))-((1000*Z1)+(100*Z2)+(10*Z3))
  214. 1510 Z5=CD-((10000*Z1)+(1000*Z2)+(100*Z3)+(10*Z4))
  215. 1520 IF Q1<>Z1 THEN PRINT" WRONG 10000'S COLUMN":GOSUB730
  216. 1530 IF Q2<>Z2 THEN PRINT" WRONG 1000'S COLUMN":GOSUB730
  217. 1540 IF Q3<>Z3 THEN PRINT" WRONG 100'S COLUMN":GOSUB730
  218. 1550 IF Q4<>Z4 THEN PRINT" WRONG 10'S COLUMN":GOSUB730
  219. 1560 IF Q5<>Z5 THEN PRINT" WRONG UNITS COLUMN":GOSUB730
  220. 1590 GOSUB835:PRINT"";:FORI=1TO7:PRINTUP$:NEXTI
  221. 1595 PRINT"";:GOTO1360
  222. 1600 W=INT(6*RND(1)+1)
  223. 1610 GOSUB700:PRINT"[158] "A$(W):Z=Z+1
  224. 1620 NEXT Q:GOSUB835
  225. 1630 DATA CORRECT SIR
  226. 1640 DATA NICE GOING EINSTEIN
  227. 1650 DATA RIGHT ON THE MONEY
  228. 1660 DATA PERFECT RESPONSE
  229. 1670 DATA HEY YOU'RE GETTIN' GOOD
  230. 1680 DATAA STAR IS BORN  CORRECT EUCLID
  231. 1690 DATA INCORRECT BUT CLOSE
  232. 1700 DATA NICE BUT NOT RIGHT
  233. 1710 DATA NOT THIS TIME
  234. 1720 DATA KEEP TRYING!
  235. 1730 DATA GETTING CLOSER
  236. 1740 DATA TRYING TOO HARD JUST RELAX
  237. 1750 UP=0:UG$="RESULTS":GOSUB850:PRINT" YOUR PERCENTAGE IS";Z*10;"%"
  238. 1770 GOSUB835:RETURN
  239. 2000 REM WHC 95:05:20
  240.